10 GRAPH
20 LOCATE 2,3:PRINT "մսע":LOCATE 3,3:PRINT "For Multi-Player"
30 LOCATE 4,5:PRINT "Version 1.00"
40 K$=INKEY$
50 CLEAR
55 GRAPH
60 PRINT "      ±","    ","    ","    汾Ϣ",
70 PRINT "      ˳";
80 CHO=1:CHE=0
90 IF CHE<>0 THEN BOX 48,(CHE-1)*16,111,CHE*16-1,1,2
100 BOX 48,(CHO-1)*16,111,CHO*16-1,1,2
110 K=ASC(INKEY$)
120 IF K=20 AND CHO=1 THEN CHO=5:CHE=1: GOTO 90
130 IF K=20 AND CHO>1 THEN CHE=CHO:CHO=CHO-1: GOTO 90
140 IF K=21 AND CHO=5 THEN CHO=1:CHE=5: GOTO 90
150 IF K=21 AND CHO<5 THEN CHE=CHO:CHO=CHO+1: GOTO 90
160 IF K=27 THEN POKE 199,155
170 IF K=13 THEN 190
180 BEEP: GOTO 110
190 ON CHO GOTO 240,470,1100,210,200
200 POKE 199,155
210 GRAPH
220 PRINT "汾v1.00","ƣLyster.S.K","дLyster.S.K","QQ27138435","<>";
230 K=ASC(INKEY$):IF K=27 THEN 50 ELSE BEEP: GOTO 230
240 TEXT 
250 PRINT "ûӢģ8 ַ":INPUT "] ";NAME$
260 IF LEN(NAME$)=0 THEN 50
270 IF LEN(NAME$)>8 THEN 240
280 OPEN "SD"+NAME$ FOR RANDOM AS #1
290 IF LOF(1)<>0 THEN 300 ELSE 320
300 CLOSE #1:GRAPH:PRINT "Ǹûעᣬ","<>"
310 K=ASC(INKEY$):IF K=27 THEN 240 ELSE BEEP: GOTO 310
320 CLOSE #1
330 TEXT 
340 PRINT "룺":INPUT "] ";PAS$(1)
350 IF LEN(PAS$(1))=0 THEN BEEP: GOTO 330
360 PRINT "ȷ룺":INPUT "] ";PAS$(2)
370 IF PAS$(2)=PAS$(1) THEN 400 ELSE 380
380 GRAPH:PRINT "벻һ£ԡ":K$=INKEY$: GOTO 330
400 GRAPH:LOCATE 3,3:PRINT "ύ ..."
410 OPEN "SD"+NAME$ FOR OUTPUT AS #1:M=12000:R=1
420 WRITE #1,NAME$,PAS$(1),M,S,R
430 FOR I=1 TO 10:WRITE #1,Z:NEXT I
440 CLOSE #1
450 GRAPH:PRINT "±";NAME$;"","עɹ"," "," ","˵";:K$=INKEY$
460 GOTO 50
470 TEXT 
480 PRINT "֤","û":INPUT "] ";NAME$
490 IF LEN(NAME$)=0 THEN 50 
500 OPEN "SD"+NAME$ FOR RANDOM AS #1 
510 IF LOF(1)=0 THEN 520 ELSE 540
520 CLOSE #1:GRAPH
530 PRINT "ûδעᣬ룡":K$=INKEY$:TEXT : GOTO 470
540 CLOSE #1
550 OPEN "SD"+NAME$ FOR INPUT AS #1:INPUT #1,NAME$,PASS$:CLOSE #1
560 PRINT "룺":INPUT "] ";PAS$
570 IF PASS$=PAS$ THEN 590 ELSE 580
580 GRAPH:PRINT "":K$=INKEY$:TEXT : GOTO 560
590 GRAPH
600 OPEN "SD"+NAME$ FOR INPUT AS #1
610 INPUT #1,NAME$,PASS$,MONEY,SC,RANK
620 FOR X=1 TO 3
630 FOR Y=1 TO 3
640 INPUT #1,WEA(X,Y)
650 NEXT Y
660 NEXT X
670 CLOSE #1
680 DIM SEL$(4,3),PR(3,3)
690 SEL$(4,1)="ع":SEL$(4,2)="":SEL$(4,3)="ϵͳ"
700 SEL$(1,1)="սը":SEL$(1,2)="":SEL$(1,3)=""
710 SEL$(2,1)="ͷ":SEL$(2,2)="൯ͷ":SEL$(2,3)="߼൯ͷ"
720 SEL$(3,1)="ػϵͳ":SEL$(3,2)="˹ϵͳ":SEL$(3,3)="ȷƵϵͳ"
730 PR(1,1)=3600:PR(1,2)=5400:PR(1,3)=7200
740 PR(2,1)=3600:PR(2,2)=1500:PR(2,3)=2000
750 PR(3,1)=2400:PR(3,2)=10000:PR(3,3)=15000
760 GRAPH:PRINT "ѡҪ":MENU=4
765 LOCATE 5,1:PRINT "<>˳";:CLEAN$="                    "
770 CHO=1:CHE=0
780 FOR I=2 TO 4
790 LOCATE I,1:PRINT CLEAN$:LOCATE I,1:PRINT SEL$(MENU,I-1)
800 NEXT I
810 IF CHE<>0 THEN 820 ELSE 830
820 BOX 1,CHE*16,160,CHE*16+15,1,2
830 BOX 1,CHO*16,160,CHO*16+15,1,2
840 K=ASC(INKEY$)
850 IF K=20 AND CHO>1 THEN CHE=CHO:CHO=CHO-1: GOTO 810
860 IF K=21 AND CHO<3 THEN CHE=CHO:CHO=CHO+1: GOTO 810
870 IF K=27 AND MENU=4 THEN 1000
875 IF K=27 AND MENU<>4 THEN MENU=4: GOTO 770
880 IF K=13 THEN 900
890 BEEP: GOTO 840
900 IF MENU=4 THEN MENU=CHO: GOTO 770
910 GRAPH:A=MENU:B=CHO
920 PRINT SEL$(A,B);" $";PR(A,B)
930 LOCATE 4,1:PRINT "<B>  <S>","<>";
940 LOCATE 2,1:PRINT CLEAN$:LOCATE 3,1:PRINT CLEAN$
945 LOCATE 2,1:PRINT "";WEA(A,B),"ʽ";MONEY
950 K$=INKEY$
960 IF K$="b" AND MONEY>=PR(A,B) THEN WEA(A,B)=WEA(A,B)+1:MONEY=MONEY-PR(A,B): GOTO 940
970 IF K$="s" AND WEA(A,B)>=1 THEN WEA(A,B)=WEA(A,B)-1:MONEY=MONEY+PR(A,B): GOTO 940
980 IF ASC(K$)=27 THEN 760
990 BEEP: GOTO 950
1000 GRAPH
1010 OPEN "SD"+NAME$ FOR OUTPUT AS #1
1020 WRITE #1,NAME$,PASS$,MONEY,SC,RANK
1030 FOR X=1 TO 3
1040 FOR Y=1 TO 3
1050 WRITE #1,WEA(X,Y)
1060 NEXT Y
1070 NEXT X
1080 CLOSE #1
1090 GOTO 50
1100 GRAPH
1110 LOCATE 1,7:PRINT ""," "
1120 PRINT "1.ɶ˰ļ","2.ɵ˰ļ","3.˵";
1130 K$=INKEY$
1140 IF K$="b" THEN 1180
1150 IF K$="n" THEN 1330
1160 IF K$="m" OR ASC(K$)=27 THEN 50
1170 BEEP: GOTO 1130
1180 GRAPH
1190 LOCATE 3,6:PRINT "д ..."
1200 DIM N$(30):N=1
1210 N$(N)="Ѳͧ":N=N+1:N$(N)="":N=N+1:N$(N)="Ѳ":N=N+1
1220 N$(N)="սн":N=N+1:N$(N)="ĸ":N=N+1:N$(N)="ع":N=N+1
1225 N$(N)="":N=N+1:N$(N)="ϵͳ":N=N+1:N$(N)="սը":N=N+1
1230 N$(N)="":N=N+1:N$(N)="":N=N+1:N$(N)="ͷ":N=N+1
1240 N$(N)="൯ͷ":N=N+1:N$(N)="߼൯ͷ":N=N+1:N$(N)="ػϵͳ":N=N+1
1250 N$(N)="˹ϵͳ":N=N+1:N$(N)="ȷƵϵͳ":N=N+1:N$(N)="<Q>":N=N+1
1260 N$(N)="<A>":N=N+1:N$(N)="<Z>":N=N+1:N$(N)="<W>":N=N+1:N$(N)="<S>":N=N+1:N$(N)="<X>"
1270 N=N+1:N$(N)="                  ":N=N+1:N$(N)="±":N=N+1:N$(N)="":N=N+1
1280 N$(N)="":N=N+1:N$(N)="˾":N=N+1:N$(N)="":N=N+1:N$(N)="Ԫ˧"
1285 OPEN "SeaMPData" FOR OUTPUT AS #1
1290 FOR I=1 TO N
1300 WRITE #1,N$(I)
1310 NEXT I
1320 CLOSE #1:BEEP:GRAPH:LOCATE 3,9:PRINT "Ok!!":K$=INKEY$: GOTO 50
1330 GRAPH
1340 LOCATE 3,6:PRINT "д ..."
1350 DIM N$(51):N=1
1360 N$(N)="ָӹ٣":N=N+1:N$(N)="ǵ":N=N+1:N$(N)="˵":N=N+1
1370 N$(N)="ĸ":N=N+1:N$(N)="սн":N=N+1:N$(N)="Ѳ":N=N+1
1380 N$(N)="":N=N+1:N$(N)="Ѳͧ":N=N+1:N$(N)="У":N=N+1
1390 N$(N)="Ҫ":N=N+1:N$(N)="ʼðˣ":N=N+1
1400 N$(N)="ϱը˸󶴣":N=N+1:N$(N)="б":N=N+1
1410 N$(N)="ûˡ":N=N+1:N$(N)="̩̹ˡ":N=N+1:N$(N)="ںһӾ":N=N+1
1420 N$(N)="̱ˡ":N=N+1:N$(N)="ܶˣ³":N=N+1
1430 N$(N)="ƫˣ":N=N+1:N$(N)="Ҫѧ׼":N=N+1
1440 N$(N)="úãɱһ㣡":N=N+1:N$(N)="ǲǴԶˣ":N=N+1
1450 N$(N)="˷ϵˣ":N=N+1:N$(N)="Ԫ˧":N=N+1
1460 N$(N)="":N=N+1:N$(N)="˾":N=N+1
1470 N$(N)="":N=N+1:N$(N)="֡":N=N+1:N$(N)="±":N=N+1
1480 N$(N)="һ֮㣬ĽӾȥι":N=N+1
1490 N$(N)="ʮӮεĻҲǽ":N=N+1
1500 N$(N)="ģעһºľ㣬˵ǣ":N=N+1
1510 N$(N)="ҲӮĻͻؼҵɣ":N=N+1
1520 N$(N)="һȿ˵ɣ":N=N+1
1530 N$(N)="Ҵò׼ҲŶ":N=N+1
1540 N$(N)="     Ϸ˵":N=N+1:N$(N)="    Ϸ˫ֱ":N=N+1
1550 N$(N)="1010ĺв":N=N+1:N$(N)="ս֮":N=N+1
1560 N$(N)="ըȻз":N=N+1:N$(N)="սΪʤ":N=N+1
1570 N$(N)="ʱ˵":N=N+1:N$(N)="  ƶս":N=N+1
1580 N$(N)="  <C> ":N=N+1:N$(N)="  <>ȷ":N=N+1
1590 N$(N)="Ϸʱ˵":N=N+1:N$(N)="  ƶ":N=N+1
1600 N$(N)="  <>ը":N=N+1:N$(N)="    ը¼":N=N+1
1610 N$(N)="״̬棬<>":N=N+1:N$(N)="һҹ"
1620 OPEN "SeaData" FOR OUTPUT AS #1
1630 FOR I=1 TO N
1640 WRITE #1,N$(I)
1650 NEXT I
1660 CLOSE #1:BEEP:GRAPH:LOCATE 3,9:PRINT "Ok!!":K$=INKEY$: GOTO 50
